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In questo lezione costruiremo insieme il 
programmo I MIEI AMICI che, come ricorderai, 
è stato allegato olio lezione 1. 

In questo modo non solo impareremo a creare 
un programmo, mo soprattutto cercheremo di 
capirne la logica. 


Il programmo dovrà permetterti di inserire i doti, di 
variarli, di cancellarli, di ricercarli e infine di salvarli 
sul nastro, in modo da non perderli quando spegni 
il computer. 

Per realizzare tutto questo ci converrà dividere il 
listato in 6 parti distinte corrispondenti alle voci: 
ricerca codice,-ricerca, inserimento, variazione, 
cancellazione e gestione files su nastro (lettura e 
scrittura). 
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come e chiamato > 

L'INSIEME DELLE. 

TKE INFORMAZIONI ? 




Queste parti saranno 
collegate fra di loro da 
una serie di opzioni 
(MENU'), che ti 
permetteranno di 
scegliere quale 
eseguire. 

li programma dovrà archiviare per ogni 
amico 3 INFORMAZIONI o CAMPI, cioè: 


NOME, INDIRIZZO e NOTE. 

L'insieme di tutti i dati che si riferiscono allo 
stesso amico, cioè l'insieme delle 3 
informazioni, è chiamato RECORD. 



Supponendo di poter archiviare (sul CBM 64) al massimo 300 
amici, per memorizzare tutti i dati ci converrà usare una 
matrice stringa di 300 righe per 3 colonne. 

Cominceremo quindi a dimensionare la matrice D$ e a 
colorare di blu l'intero schermo scrivendo: 

20 DIMDS (000, 0): POKE 50280, 6: POKE 50261,6. 



Poi con i PRINT stamperemo sul video il MENU r , numerando 
ogni opzione in modo da poter indicare quale scegliere, in 
questo modo: 

RUBRICA: I MIEI AMICI 


0 CODICE 

1 RICERCA NOME 

2 RICERCA INDIRIZZO 

3 RICERCA NOTE 

4 INSERIMENTO 

5 VARIAZIONE 

6 CANCELLAZIONE 

7 LETTURAFILE 

8 SCRITTURA FILE 


SCELTA: ? ■ 



ESEMPIO PRATICO (CDM 64) 

20 dimd$(300,3):poke53280,6:poke53281,6 

100 print"(home)(wht)" 

110 print" RUBRICA: I MIEI AMICI" 

160 print"(giu')(wht)0. CODICE":print"l. RICERCA NOME" 

180 print"2. RICERCA INDIRIZZO":print"3. RICERCA NOTE" 

220 print"4. INSERIMENTO":print"5. VARIAZIONE":print"6. CANCELLAZIONE" 
340 print"7. LETTURA FILE":print"8. SCRITTURA FILE" 

360 input"(giu')SCELTA:";s 

400 ons+lgoto700,600,600,600,900,1000,1200,1600,1600 
600 print"(home)(rvs)RICERCA(giu 1 )" 

620 input"INDIZIO";i$ 

640 fork=ltor:ifleft$(d$(k,s),len(i$))=i$thenh=k:gosub2000:gosub3000 
650 next:gotol00 

700 input"(home)CODICE";h:ifh>rthen700 
720 gosub2000:gosub3000:gotol00 

900 r=r+l:h=r:print"(home)(rvs)INSERIMENTO(giu*)" 

920 iffre(0)<-63000thenprint"MEMORIA TROPPO PIENA":gosub3000:gotol00 

930 input"NOME";d$(h,1):iflen(d$(h,1))>25then930 

940 input"INDIRIZZO";d$(h,2):iflen(d$(h,2))>25then940 

950 input"NOTE ";d$(h,3):iflen(d$(h,3))>25then950 

960 gotol00 

1000 print"(home)(rvs)VARIAZIONE(giu'):input"CODICE";h:ifh>rthenl000 
1020 gosub2000:goto920 

1200 print"(home)(rvs)CANCELLAZIONE(giu'): input"CODICE";h:ifh>rthenl200 
1220 gosub2000: input" (giu ' )CONFERMA=s" ; j$ : if j$O"s"thenl00 
1240 forq=lto3:d$(h,q)=d$(r,q):next:r=r-l:gotol00 
1600 openl.l,(~(s=8)),"DATI" 

1620 ifs=7theninputtLL,r 

1640 ifs=8thenprint#l,rchr$(13) 

1700 forx=ltor:fory=lto3 
1720 ifs=7theninputtfl,d$(x,y) 

1740 ifs=8thenprintttl,d$(x,y)chr$(13) 

1800 nexty,xrclosel:gotol00 

2000 print"(home)CODICE"h"(giu')":fore=lto3:printd$(h,e):nexte:return 
3000 print"(giu')PREMI UN TASTO" 

3100 geta$:ifa$=""then3100 
3120 return 
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ESEMPIO PRATICO (VIC 20) 

Dallo linea 360 in poi (tranne la 920) il listato è identico a quello per il CBM 64. 

Prima della 360 vanno sostituite le seguenti linee: 

20 dimd$(100,3) 

100 prinr"(home)(blls)l MIEI AMICI": print"(giù)0. CODICE": prinr''(giù)1. NOME": print'Xgiù) 

2. INDIRIZZO" 

220 prinf"(giù)3. NOTE": prinr"(giù)4. INSERIMENTO": print"(giù)5.VARIAZIONE": prinf'Xgiù) 

6. CANCELLAZIONE" 

340 print"(giù)7. LETTURA DATI": print"(giù)8. REGISTRAZIONE DATI" 

La linea 920 diventa invece: 

920 iffre(0X30rhenprint”MÈMORIA TROPPO PIENA": gosub3000:gofo100 

La tabella dei simboli, contenuti nei listati, è stata pubblicata sul libretto della lezione n. 12. 


Listato 

dell'esercizio: 
COMPLETA 
IL LISTATO 


Soluzione 
dell'esercizio: 
COMPLETA 
IL LISTATO 

(lez. n. 21 ) 


10 DIMD|*| 

20 F0RK=1T014:A$=|*I+CHR$(157):NEXTK 
30 PRINT|*|(147)"BATTI GLI IMPORTI" 

40 FORÌ*|TO10 

50 PRINT" "D(K) LEFT$(A$,LEN(STR$(D.(K) ) )+2); 
60 INPUTD(K):PRINTCHR$(145); 

70 PRINTRIGHT$(" "+|*|(D(K)),11) 

80 |*|=T+D(K) 

90 NEXT|*| 

100 PRINT"-" 

110 PRINTRIGHT$(" "+STR$(T),11) 

120 PRINT:PRINT"C0RRETT0 (S/N)?" 

130 GET|*| 

140 IFY$="S"THEN|*| 

150 IFY$="N"THENT=0:|*| 

160 GOTO|*| 

10 DIML(14),N(14) 

20 F0RK=1T014:READL(K):NEXTK 
30 INPUT"IMPORTO"; I 
40 INPUT"LIRE DATE";D 
50 IFD ITHEN40 
60 R=D-I 

70 PRINT"REST0 L.";R 
80 F0RK=1T014 

90 IFR =L(K)THENR=R-L(K):N(K)=N(K)+1 :GOTO90 
100 NEXTK 

110 PRINT"TAGLI DI RESTO" 

120 F0RK=1T014 

130 IFN(K) 0THENPRINTN(K)"DA"L(K) 

140 NEXTK 

150 DATA100000,50000,20000,10000,5000 
160 DATA2000,1000,500,200,100,50,20,10,5 
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